library(readr)
library(dplyr)


Named_Entity_List_Full <- read_csv("~/NER/input/Named_Entity_List_Full.csv")

write_csv(Named_Entity_List_Full, "~/NER/input/Named_Entity_List_Full_org.csv")

Named_Entity_List_Full <- Named_Entity_List_Full %>% filter(!(firstname == "Magdalena" & lastname == "Martullo"))
Named_Entity_List_Full <- Named_Entity_List_Full %>% filter(!(firstname == "Ruth" & lastname == "Humbel"))

write_csv(Named_Entity_List_Full, "~/NER/input/Named_Entity_List_Full.csv")
